home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
games
/
egavga
/
funquiz.arj
/
FQLVL52.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-02-03
|
2KB
|
69 lines
:THIS IS THE FQLVL52 BATCH FILE FOR MARA'S "FUNQUIZ"
@ECHO OFF
:52A
LOADSCRN HLTHCH2.SCR
WAIT K 3
LOADSCRN XL2.SCR
TICWRITE T 25 7 WHI BLU GEOGRAPHY
TICWRITE T 19 12 WHI BLU IN WHICH CITY IS THE GUGGENHEIM MUSEUM ?
TICWRITE T 33 14 WHI BLU F1 STOCKHOLM
TICWRITE T 33 16 WHI BLU F2 VIENNA
TICWRITE T 33 18 WHI BLU F3 NEW YORK
KEYPRESS F1 F2 F3
IF ERRORLEVEL 3 GOTO R52A
IF ERRORLEVEL 2 GOTO W52A
IF ERRORLEVEL 1 GOTO W52A
:W52A
BEEPER W
POPWIN 25 8 55 14 BLA RED 2
WRITE 30 10 BLA RED C SORRY,
WRITE 30 12 BLA RED C WRONG CHOICE.
WAIT K 1
FQLVL53.BAT
:R52A
BEEPER R
POPWIN 25 8 55 14 BLA GRE 2
WRITE 30 10 BLA GRE C BRAVO
WRITE 30 12 BLA GRE C GOOD WORK.
WAIT K 1
GOTO 52B
:52B
LOADSCRN XL2.SCR
TICWRITE T 25 7 WHI BLU LEISURE & TRAVEL
TICWRITE T 19 12 WHI BLU WHICH COUNTRY HAS "DINGOS" ?
TICWRITE T 33 14 WHI BLU F1 INDIA
TICWRITE T 33 16 WHI BLU F2 AUSTRALIA
TICWRITE T 33 18 WHI BLU F3 CHINA
KEYPRESS F1 F2 F3
IF ERRORLEVEL 3 GOTO W52A
IF ERRORLEVEL 2 GOTO R52B
IF ERRORLEVEL 1 GOTO W52A
:R52B
BEEPER R
POPWIN 25 8 55 14 BLA GRE 2
WRITE 30 10 BLA GRE C RIGHT
WRITE 30 12 BLA GRE C YOU DID IT AGAIN.
WAIT K 1
GOTO 52C
:52C
LOADSCRN XL2.SCR
TICWRITE T 25 7 WHI BLU POTLUCK
TICWRITE T 19 12 WHI BLU HOW LONG DID "SLEEPING BEAUTY" SLEEP ?
TICWRITE T 33 14 WHI BLU F1 10 YEARS
TICWRITE T 33 16 WHI BLU F2 20 YEARS
TICWRITE T 33 18 WHI BLU F3 100 YEARS
KEYPRESS F1 F2 F3
IF ERRORLEVEL 3 GOTO R52C
IF ERRORLEVEL 2 GOTO W52A
IF ERRORLEVEL 1 GOTO W52A
:R52C
BEEPER R
POPWIN 25 8 55 14 BLA GRE 2
WRITE 30 10 BLA GRE C WOW !
WRITE 30 12 BLA GRE C NEW LEVEL AHEAD.
WAIT K 1
FQLVL61.BAT